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FOREWORD 

(U)  This  report  was  prepared  by  the  Vought  Systems  Division, 
LTV  Aerospace  Corporation,  P.  O,  Box  6267,  Dallas,  Texas  75222 
under  U.  S.  Army  Electronics  Command  Contract  DAAB09-72-C-0062. 
The  work  was  initiated  under  the  direction  of  Captain  R.  A,  Dowd,  USN 
and  completed  under  Captain  W.  A.  Greene,  USN,  Chief,  Long  Range 
Forecast  Division,  Directorate  of  Estimates,  Defense  Intelligence 
Agency  (DIA-DE-1). 
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ABSTRACT 

(U)  The  SEATIDE  Analysis  Process  is  a semi-automated 
procedure  for  the  generation  of  time-phased,  high  value  cruise  missile 
weapon  systems  concepts,  together  with  the  supporting  technology  and 

intelligence  indicators  which  would  reflect  that  these  technological  goals  i 

! are  being  achieved.  The  SEATIDE  process  can  also  be  used  to  evaluate  • 

the  effectiveness  of  fixed  force  levels,  existing  forces  in  SAL  environ-  ' 

ments,  or  Naval  defenses. 

(U)  The  Defense  Intelligence  Agency,  through  its  Directorate 
of  Estimates,  and  The  Advanced  Research  Projects  Agency  (ARPA)  have 
sponsored  the  development  of  this  computer  based  analysis  at  the  weapon 
system  and  Naval  force  structure  level.  A previous  process,  RIPTIDE, 
was  developed  for  DIA  for  use  in  analysis  of  strategic  missile  systems. 

(U)  Generic  to  the  SEATIDE  Analysis  Process  are  three 

1 

major  computer  models:  The  Naval  Engagement  Model  (NEM),  Cruise 
Missile  Concept  Generation  and  Screening  Model  (CM-CGSM)  and  Relative 
. Worth  Model  (RWM).  The  NEM  evaluates  force  effectiveness,  tactics,  and 

i 

5 task  force  configurations;  the  CM-CGSM  enables  definition  and  selection 

^ of  candidate,  advanced  cruise  missile  system  concepts;  and  the  RWM  per- 

mits assessment  of  worth  in  accordance  with  a variety  of  objective  and 

k 

subjective  criteria.  Each  of  these  models  has  been  checked  out  by  DIA. 
i (U)  In  addition  to  exercising  the  computer  models,  there  are 

several  other  analytical  and  engineering  tasks  to  be  performed,  e.  g.  , the 
identification  of  areas  of  current  interest  and  the  associated  criteria  and 
potential  concepts,  the  creation  of  a foreign  technology  data  bank  in  a 
format  needed  by  the  computer  models,  the  engineering  of  concepts  to 

the  required  detail,  and  the  use  of  a verification  analysis  loop.  ; 
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SECTION  I 
INTRODUCTION 


(U)  On  28  Jvine  1972,  the  Vought  Systems  Division,  a division 
of  LTV  Aerospace  Corporation,  contracted  with  the  Defense  Intelligence 
Agency  (DIA)  to  develop  the  SEATIDE  Analysis  Process  in  support  of  the 
DIA  Long  Range  Forecast  Division  (DE-1).  The  SEATIDE  Analysis  Process 
is  defined  to  be: 

" a semi- automated  procedure  for  the  generation  of 

time  phased,  higli  value  naval  cruise  missile  system  con- 
cepts, together  with  the  supporting  technology  and  the 
intelligence  indicators  which  would  reflect  that  these 
technological  goals  are  being  achieved  ....  " 

(U)  Generic  to  the  SEATIDE  Analysis  Process  are  three  major 
computer  models:  the  Naval  Engagement  Model  (NEM),  the  Cruise  Missile 
Concept  Generation  and  Screening  Model  (CM-CGSM),  and  the  Relative 
Worth  Model  (RWM).  This  volume  presents  a Users  Manual  for  the  RWM 
only.  Users  Manuals  for  the  other  models  are  found  in  Volumes  UA  and 
TIIA,  respectively, 

(U)  The  RWM  is  written  in  FORTRAN  IV  computer  language 
and  is  compatible  with  the  DIAMS  IBM  360/65  computer  system  at 
Arlington  Hall,  Virginia, 

(U)  This  manual  is  written  with  three  objectives  in  mind: 

(a)  To  serve  the  systems  analyst. 

(b)  To  serve  the  programmer  who  will  implement  and 
update  the  computer  programs, 

(c)  To  serve  the  computer  operations  personnel  with  a 
source  for  preparing  detailed  computer  operating 
instructions. 

In  addition,  a number  of  appendices  are  included  to  give  a broader  under- 
standing of  the  purpose,  approach,  and/or  techniques  used  in  various  major 
portions  of  the  computer  models.  Appendix  A is  a detailed  listing  of  the 
FORTRAN  Source  Program,  Other  information,  of  interest  only  to  the 
systems  analyst,  is  to  be  found  in  Volume  III  and  its  Technical  Appendices. 
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SECTION  n 


DESCRIPTION 


1.  PURPOSE 

(U)  The  purpose  of  the  Relative  Worth  Model  (RWM)  is  to  pro- 
vide DIA  with  a computer  model  within  the  SEATIDE  Analysis  Process  to 
remk  high  value  advanced  cruise  missile  systems  concepts  using  a variety 
of  objective  and  subjective  criteria.  While  the  model  is  quite  general,  the 
terminology  and  variables  used  in  its  application  to  SEATIDE  are  those 
used  in  the  NEM  and  CM-CGSM.  These  are;  WORTHl,  WORTH2,  and 
COST*,  qucintities  which  are  available  for  each  czuididate  concept  which 
survives  the  screening  process  in  the  CM-CGSM.  Other  variables  which 
can  be  attached  to  each  candidate  are  such  things  as:  Years  to  Achieve 
IOC,  Technological  Risk,  Use  of  Critical  Materials,  etc.  Each  of  these 
may  have  a bearing  to  a greater  or  lesser  degree  on  the  ranking  of  the  can- 
didates from  the  National  Plainning  point  of  view.  The  purpose  of  the 
Relative  Worth  Model  is  to  provide  DIA  a quantitative  way  to  inject  the 
judgment  of  qualified  experts  into  assessing  the  relative  importance  of  all 
variables  and  their  combined  influence  on  the  resultant  ranking.  An  error 
analysis  is  also  provided  which  establishes  rank  bovinds  which  reflects  the 
system  analysts  degree  of  certainty  on  his  judgment. 

2.  ASSUMPTIONS  AND  APPROACH 

(U)  The  RWM  assumes  that  each  system  to  be  ranked  can  be 
described  by  a common  set  of  variables,  xi,  X2,  ....  , x^  (xj  might  be 
WORTHl,  X2  might  be  WORTH2,  etc. ).  It  also  assumes  that  in  a given 
context  of  mission  to  be  performed  (requirement  to  be  met),  resources 
available,  policy  and  other  constraints,  that  there  exists  a Worth  Function 
which  measures  the  "desirability”  of  each  system  relative  to  another,  and 
that  the  worth  is  a function  of  the  variables  xj  to  Xj^,  i.  e.  , that  for  the  ith 
system  there  is  a Worth  given  by 


W. 

1 

F (X.) 

(1) 

where 

X. 

1 

(Xil,  ^i2'  ••••’ 

= 

system  variables 

* In  this  application,  COST  is  defined  as  system  weight.  In  the  event,  a 
costing  methodology  is  added  to  the  SEATIDE  process  at  a later  date,  no 
heading  changes  will  be  required. 
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(U)  If  such  a Worth  Function  were  explicitly  Icnown,  the  various 
systems  could  be  rainked  by  direct  substitution  of  their  variables  into  the 
function.  However,  where  the  function  is  not  explicitly  known,  or  uncer- 
tainties in  the  data  exist,  additional  methodology  is  needed, 

2,  1 The  Ranking  Index 


(U)  Under  certain  quite  general  assumptions.  Reference  1,  a 
Worth  Index  W*  may  be  defined  by  linearizing  the  Worth  Function  using 
Taylor's  series  with  a remainder.  Thus,  given  m systems  to  be  compared, 
each  described  by  n variables  x;  (j=l  to  n),  we  may  then  think  of  having 
an  (m  X n)  matrix  X of  data  describing  the  m systems,  i,  e.  , 


X = (xj.)  (2) 

where  x.^  = value  of  the  jth  variable  of  the  ith  system. 

As  shown  in  Reference  1,  we  may  now  define  the  Worth  Index  W*  as 

X [(Xjj  - c.)  . t.)]  + F(c)  (3) 


where 


W.*  = 

1 


•l’^2’ 


c^  = a baseline  system  or 


t. 

J 


coordinate  origin 
trade  factor  j,  (j=l  to  n) 
aF  / aF  / = )- 


ax.^ 


ax. 


Thus,  we  see  that  the  "trade  factor"  tj  corresponding  to  the  jth  system  vari- 
able is  (from  a mathematical  point  of  view)  the  constrained  derivative  of 
some  "baseline"  variable  x^^  with  respect  to  the  jth  variable,  evaluated  at 
the  reference  pointy.  It  can  be  shown  that  within  the  limits  of  linearization 
of  the  region  of  interest  that  for  two  system  p and  q. 


W * > W * if  and  only  if  W > W (4) 

p q P ' ' 

i,  e, , that  two  systems  p and  q can  be  ranked  in  the  same  order  using  the 
Worth  Index  as  they  would  be  ranked  using  the  Worth  Function, 

(U)  Estimation  of  trade  factors  is  discussed  in  Appendix  B, 
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2.  2 Sensitivity  Analysis  - Rank  Bounds 

(U)  If  we  assume  error  bounds  e.  in  our  estimates  of  the 
trade  factors  t.,  then  for  two  systems  p and  4 it  can  be  shown  (Reference 
1)  that  their  relative  ranks  remain  unchanged  for  any  combination  of 
errors  e.  if  and  only  if 


W * - W * 

k = 2 ^ > 1 (5) 
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3.  TOP  LEVEL  FLOW 

(U)  The  RWM  top  level  flow  is  presented  in  Figure  II- 1 
and  is  discussed  below. 

(U)  The  RWM  consists  of  a IvlAIN  program  and  seven 
subroutines.  No  link  overlay  is  re<luired.  The  MAIN  program  calls 
Subroutine  START  which  reads  a PCODE  card  which  identifies  the 
data  or  case  being  run,  etc.,  a five  line  TITLE  and  up  to  520  lines  of 
COMMENTS,  80  characters  to  the  line.  Upon  command  (see  section  II.  4) 
it  reads  data  and  then  calls  Subroutine  RANK  which  then  calls  the  other 
subroutines  as  needed.  The  function  of  each  subroutine  is  shown  in 
Figure  II- 1 . 


i1 


\ 

i 


■j 
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FIGURE  II  - 1 

RELATIVE  WORTH  MODEL  TOP  LEVEL  FLOW  (U) 


Controls  and  executes  Data  INPUT 
options.  Calls  Subroutines  START 
and  RANK.  Calls  EXIT  to  terminate  run. 

Inputs  Run  Identification  CODE,  TITLE 
page  information,  and  COMMENTS. 

Calls  five  execution /output  subroutines. 
Calculates  System  RELATIVE  WORTH. 

Calculates  Parameter  TRADE  FACTORS. 


Calculates  System  WORTH  based  on 
a set  of  average  Trade  Factors. 

Determines  System  RANK  from 
System  WORTH 


Calculates  Ranking  Sensitivity  RANK 
BOUND  and  outputs  SENSITIVITY 
MATRIX  as  optioned. 

Executes  Ranking  Model  OUTPUT 
options. 
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(U)  RWM  input  data  are  presented  in  this  section,  along 
•with  a general  discussion  of  program  control  parameters.  Input  param- 
eters are  defined  and  input  card  formats  illustrated. 

4.  1 Control  Parameters 


(U)  Control  during  setup  and  execution  of  the  RWM  is  done 
by  a set  of  ZIP  code  cards.  ZIP  card  formats  are  shown  in  Figure  11-2. 
Cach  ZIP  card  initiates  a particular*  action,  which  may  include  reading 
additional  control  parameters,  and  then  the  program  returns  to  read 
another  ZIP  card.  The  computer  run  is  terminated  by  reading  a ZIP  9 
card.  A detailed  discussion  of  ZIP  cards  is  included  where  they  occur  in 
Figures  11-3  thru  II-7. 

4.  2 Initialization  Input 

(U)  All  RWM  input  data  in  a given  computer  run  remains 
unchanged  until  a replacement  set  is  read  in  over  it  (as  in  parametric 
variations  in  a single  JOB).  Hence  certain  items  can  be  set  initially 
and  left  alone  thereafter.  A typical  set  of  these  are  shown  in  Figure 
11" although  any  or  all  could  be  changed  as  needed  for  each  additional 
variation.  This  includes  the  initial  PCODE  card,  a five  card  Title 
which  gets  printed  during  output  on  a page  by  itself,  print  control  indices, 
and  Base  Worth  and  System  Variables. 

4.  3 Base  Worth  Base  System  Variables 

(U)  From  Equation  (3)  in  section  II.  2 we  find  the  quantities 
C and  F(C)  which  have  the  following  FORTRAN  names 


XBASE(I) 


BWORTH 


= Cj  , i = 1 to  n 


F (C) 


L 


These  can  be  any  convenient  numbers  (including  zeros),  but  if  they  are 
chosen  from  some  baseline  system  the  Worth  Index  has  a visible  relation 
to  that  of  the  baseline  system  (as  well  as  a numerical  ranking).  These 
are  shown  as  items  M and  N in  Figure  11-3. 

4.  4 Trade  Factor  Input 

(U)  Trade  Factors  are  defined  in  equation  (3)  in  section 
II" 2 and  error  bounds  ej  on  Trade  Factor  t;  are  shown  in  equation  (5). 
Estimation  of  these  are  discussed  in  Appendix  B.  However,  it  may  be 
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1 


said  here  that  they  are  usually  estimated  as  a lower  and  upper  bound. 

These  upper  and  lower  bounds  are  entered  as  shown  in  Figure  II-4. 

The  average  is  taken  as  the  Trade  Factor,  and  half  of  their  difference 

is  taken  as  the  error  bound  ej.  If  there  are  n system  variables  there  j 

are  n sets  of  Trade  Factors  tj,  t2,  t^.  i 

i 

4.  5 System  Names  ; 

! 

(U)  System  names  may  be  left  blank  or  chosen  at  the  j 

convenience  of  the  user.  The  RWM  keeps  track  of  systems  by  system  I 

number.  These  are  shown  in  Figure  II-5. 

4. 6 System  Data  i 

(U)  System  data  is  defined  as  the  in  equation  (2)  in 
section  II-2.  For  each  system  (identified  by  system  number  i)  there 

are  n values  Xji,xj2 *in  describing  that  system.  These  are 

entered  7 to  the  card  as  shown  in  Figure  II-6. 

4.  7 Execution  and  Parameter  Variation 

(U)  After  all  data  has  been  read,  a ZIP  8 control  card 
causes  execution  of  a ranking  and  sensitivity  analysis.  Output  is  then 
printed  according  to  the  print  control  indices  previously  read  in.  After 
this  cycle  is  complete  the  computer  run  may  be  terminated  with  a ZIP 
9 control  card,  or  as  shown  in  Figure  II-7  another  cycle  may  be  set  up 
and  executed.  In  the  example  in  Figure  II-7  only  the  PCODE  card  and 
the  Trade  Factor  data  was  changed.  But  any  other  input  may  be  changed 
either  by  complete  replacement,  or  as  in  the  case  of  Trade  Factors, 

System  Names,  or  System  Data,  by  single  lines.  These  partial  replace- 
ments of  input  data  are  shown  in  Figure  II-8. 
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FIGURE  n-3 

RWM  - INITIALIZATION  INPUT 


Definition 


Zip  Code  5,  first  card  in  a data  deck. 

Plain  text  purpose  of  Zip  5. 

PCODE  card.  A one  line  identifier  which  gets 
printed  at  the  top  of  each  page  of  output. 

A five  line  title. 

Comment  cards  (if  any).  Comments  are 
terminated  by  two  blank  cards.  Maximum  of  520 
cards. 

Two  miscellaneous  constant  cards.  Not  used  but 
needed  for  read  purposes. 

Zip  code  3. 

Plain  text  purpose  of  Zip  3. 

Print  control,  in  fields  of  five. 

A zero  means  do  not  print. 

1.  Print  system  ranks  and  worths 

2.  Print  sensitivity  matrix  K 

3.  Print  rank  bounds 

4.  Specifies  number  of  top  ranked  systems  to  put 
in  sensitivity  matrix  K.  If  zero  it  puts  all 
systems  in  K. 

5.  Print  trade  factors  and  bounds 

6.  Print  system  data 

Zip  code  1.  Read  base  worth  and  base  system 
variables. 

NAMELIST  NAMl.  Begin  reading. 

BWORTH  = Worth  of  a baseline  system. 

XBASE(I)  = Value  of  variable  I for  baseline  system. 

NAMELIST  NAMl.  End  reading. 
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FIGURE  n-4 

RWM  - TRADE  FACTOR  INPUT 


Variables 


Definition 


A 

B 

C 


Zip  code  2. 

Plain  text  purpose  of  Zip  2. 


Integer  in  cols  1-5  uniquely  identifying  each 
trade  factor.  Must  begin  with  1 and  proceed 
sequentially. 


D 


Name  of  trade  factor,  up  to  8 letters  in  cols  11  - 18, 
plus  8 more  in  cols  21  - 28, 


E 

F 

G 


Lower  bounds  to  trade  factors*  in  cols  31  - 40. 
Upper  bounds  to  trade  factors*  in  cols  41  - 50. 


Blank  card  which  terminates  reading  of  trade  factors 
and  returns  control  to  MAIN. 


♦NOTE:  Sign  of  trade  factor  is  negative  if  large  values  of  its  corresponding 
variable  are  less  desirable. 
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FIGURE  n-5 

RWM  - SYSTEM  NAMES 

Variables 

Definition 

A Zip  code  6. 


B Plain  text  purpose  of  Zip  6. 

C Integer  in  cols  1-5  uniquely  identifying  a system 

to  be  ranked. 

D System  "name"  in  cols  11-50  corresponding  to 

system  number.  May  be  coded  to  show  significant 
characteristics  for  reference  to  its  place  in  a 
CGSM  output. 

E Blank  card  which  terminates  reading  of  system  names 

and  returns  control  to  MAIN. 
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FIGURE  II-6 
RWM  - SYSTEM  DATA 

Variables  Definition 

A 
B 
C 

D 

E 

F 

G 

H 

NOTE:  If  there  are  more  than  7 variables,  place  on  succeeding  cards  I 

in  increasing  order  but  with  same  number  as  C in  cols  1-5.  j 


Zip  code  7. 

Plain  text  purpose  of  Zip  7. 

Integer  in  cols  1-5  uniquely  identifying  a system 
to  be  ranked.  Must  correspond  to  integer  used 
for  system  name. 

Value  of  variable  1 in  cols  11-20 
(corresponds  to  trade  factor  1) 

Value  of  variable  2 in  cols  21-30 
(corresponds  to  trade  factor  2) 

Value  of  variable  3 in  cols  31-40 
(corresponds  to  trade  factor  3) 

Value  of  variable  4 in  cols  41-50 
(corresponds  to  trade  factor  4) 

Blank  card  which  terminates  reading  system 
data  and  returns  control  to  MAIN 
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FIGURE  II-7 

RWM  - EXECUTION  AND  PARAMETER  VARIATION 
Variables  Definition 


I 

B 

C 

D 

E 

r 

F 

G 

H 

J 

K 

L 

M 


Zip  code  8 

Plain  text  purpose  of  Zip  8 
Zip  code  4 

Plain  text  purpose  of  Zip  4 

PCODE  card.  A one  line  identifier  which  gets 
printed  at  the  top  of  each  page  of  output. 

Zip  code  2 

Plain  text  purpose  of  Zip  2 

Integer  in  cols  1-5  uniquely  identifying  each  Trade 
Factor.  Must  begin  with  1 and  proceed  sequentially. 

Name  of  Trade  Factor,  up  to  8 letters  in  cols  11  - 18, 
plus  8 more  in  cols  21  - 28. 

Lower  bound  to  trade  factors*  in  cols  31-40 

Upper  bound  to  trade  factors*  in  cols  41  - 50 

Blank  card  which  terminates  reading  of  trade  factors  and 
returns  control  to  MAIN 


N,  P 


Zip  code  8.  Executes  new  parameter  variations  entered 
since  last  Zip  8. 


Q,  R 


Zip  code  9.  STOP,  End  of  computer  run. 


*NOTE:  Sign  of  trade  factor  is  negative  if  large  values  of  its  corresponding 
variable  are  less  desirable. 
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5.  OUTPUT 

(U)  Output  of  the  RWM  includes  a title  page,  copies  of  ZIP 
code  control  cards  used,  miscellaneous  initialization  data,  copies  of 
input  data  tables,  and  three  output  tables: 

(a)  SYSTEM  RANK  AND  SCORE 

(b)  SENSITIVITY  MATRIX 

(c)  SYSTEM  RANKING  SENSITIVITY  - RANK  BOUND 

These  are  discussed  in  detail  as  to  format  and  meaning  in  Figures  II-9 
thru  11-13. 
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FIGURE  II-9 


RWM  OUTPUT  - PAGES  1,  2,  3. 

ITEM  DESCRIPTION 

A PCODE.  A one  line  label  printed  at  the  top  of  each 

numbered  page. 

B A Five  Line  Title. 

C Miscellaneous  Constants.  Not  Used. 

D System  Number 

E System  Name  (or  coded  information) 

i s 

F System  Rank.  (1  is  best) 

G SCORE.  In  E-Format, 

i.  e.  4.  765E+02  means  476.  5 which  is  the  "equivalent” 
i WORTH  of  System  1 after  adjustment  by  the  Trade 

Factors.  The  system  is  better  than,  equal  to,  or  less 
j than  the  "baseline"  system  according  to  whether  the 

i SCORE  is  greater  than,  equal  to,  or  less  than  the  input 

j value  BWORTH  = 453.  0 shown  in  Figure  II-3  and  in 

!,  i Figure  II-IO. 
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FIGURE  n-9  ( Continued) 


RELATIVE  MORTH  MODEL  (SAMPLE) 
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DALLASf  TE  XA S 


(£> 


data  .PGMxRWM 
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FIGURE  II- 10 

RWM  OUTPUT  - SENSITIVITY  MATRIX  PRINT  CONTROL, 

& NAMELIST  NAMl 


ITEM  DESCRIPTION 

A PCODE.  A one  line  label  printed  at  the  top  of  each 

numbered  page. 

B SENSITIVITY  MATRIX  Page  number.  If  large  enough 

it  will  be  split  and  put  on  several  pages. 

C Rank  number  of  system  in  a particular  SENSITIVITY 

MATRIX  column. 

D System  number  of  a system  in  a particular 

SENSITIVITY  MATRIX  column. 

E System  number  of  a system  in  a particular 

SENSITIVITY  MATRIX  row  to  which  if^  is  being 
compared  in  a given  column. 

F Entries  in  the  SENSITIVITY  MATRIX.  These  are 

the  kpq^  defined  in  equation  (5)  in  section  II.  2, 
where  if  the  entry  is  greater  than  1.  0 the  system 
numbered  in  D is  always  better  than  the  system 
numbered  in  column  E.  For  example,  System 
2 is  not  always  better  than  System  5,  but 
is  always  better  than  System  1. 

G,  H ZIP  Code  3 and  Print  options  as  read  in. 

J,  K ZIP  Code  1,  NAMELIST  NAMl,  Base  Worth  & Base 

System  Variables  as  read  in.  See  Figure  II-3. 
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FIGURE  II- 11 

RWM  OUTPUT  - RANK  BOUNDS  TABLE 

ITEM  DESCRIPTION 

A PCODE.  A one  line  label  printed  at  the  top  of  each 

numbered  page. 

B Table  title  and  page  number. 

C Rank  bounds  (and  size  of  SENSITIVITY  MATRIX) 

depends  on  number  of  systems  specified  in  J.  4 of 
Figure  II-3.  In  this  case,  all  18  systems  were  used. 

D,  E System  number  and  name.  Limited  to  the  number 

shown  in  C. 

F Upper  Rank  Bound  (Highest  rank  is  1). 

G Average  Rank.  Same  F in  Figure  II-9. 

H Lower  Rank  Bound  (limited  to  number  in  C). 


NOTE:  For  System  No.  6 the  numbers  1,  3,  5 mean  that 

while  its  SCORE  based  on  the  average  trade  factor 
gives  it  a rank  of  3,  the  error  bounds  and  their 
interaction  with  all  the  systems  means  that  there 


1 are  some  conditions  within  the  bounds  of 

i uncertainty  for  which  the  rank  could  be  as  high 

I r as  1 or  as  low  as  5. 
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FIGURE  n-11  (Continued) 
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FIGURE  11-12 

RWM  OUTPUT  - TRADE  FACTOR  TABLE 

ITEM  DESCRIPTION 

A PCODE.  A one  line  label  printed  at  the  top  of  each 

numbered  page. 

B Table  title  and  page  number. 

C Trade  Factor  number,  corresponds  to  variable 

number  in  SYSTEMS  DATA. 

D Trade  Factor  name 

E Minimum  Trade  Factor  (as  input) 

F Average  Trade  Factor  (as  calculated) 

G Maximum  Trade  Factor  (as  input) 

NOTE;  Trade  Factors  have  negative  signs  if  the  corresponding 

variable  is  less  desirable  for  large  values,  e.  g. 
large  WEIGHT  is  less  desirable  than  small  WEIGHT. 
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FIGURE  11-12  (Continued) 
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PARAMETER  TRADE  FACTOR  DATA 
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FIGURE  11-13 

RWM  OUTPUT  - SYSTEM  DATA  TABLE 

DESCRIPTION 

PCODE,  A one  line  lable  printed  at  the  top 
of  each  numbered  page. 

Table  title  and  page  number 

System  Number 

System  WEIGHT  (as  input) 

System  RANGE  (as  input) 

System  YEARS  TO  IOC  (as  input) 

System  WARHEAD  WEIGHT  (as  input) 
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FIGURE  11-13  (Continued) 
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SECTION  UJ 


OPERATING  PROCEDURES 


1.  GENERAi, 

(U)  This  section  defines  the  operating  procedures  necessary 
for  utilization  of  the  Relative  Vforth  Model.  The  RWM  source  deck  con- 
sists of  approximately  1000  cards.  To  facilitate  small  modifications  with 
a minimum  of  recompilation,  it  is  recommended  that  the  load  module  be 
placed  on  a user's  library.  This  will  also  greatly  reduce  card  handling 
requirements  for  production  run  utilization. 

1.1  SEM  Compilation  and  Link  Edit  to  a User's  Library 

(U)  The  IBM  System  360/65  will  compile  the  RWM  in  less  than 
two  minutes  of  elapsed  time.  Less  than  1000  lines  of  printout  are  gene- 
rated. No  object  deck  is  generated  by  this  operation.  Figure  III- 1 shows 
the  typical  JCL  setup  required  for  RWM  compilation,  link  edit  and  placing 
the  load  module  on  a private  deck  pack.  If  the  RWM  load  module  required 
subsequent  modification,  only  the  subroutine (s)  that  were  changed  need  to 
be  loaded  as  "RWM  Fortran  Source  Decks.  " 

1.2  User's  Library 

(U)  The  JCL  shown  in  Figure  III- 1 defines  the  User's  Library 
as  the  partitioned  data  set  SYSl.  DS5CSEAA  on  the  private  disk  pack 
VOL  = SER  = RIPTDE.  The  RWM  load  module  is  stored  vinder  the  member 
name  RWM. 

1.  3 RWM  Execution 

(U)  Figure  III- 2 defines  a typical  IBM  360/65  JCL  and  deck 
setup  required  for  executing  a RWM  load  module  resident  on  a user's 
library.  Execution  time  requirements  are  set  by  the  scope  of  the  input 
problem,  but  is  on  the  order  of  1 minute  for  each  ranking  of  100  systems 
with  20  variables  each.  The  volume  of  printout  generated  is  set  by  the 
input  print  option  and  may  range  from  a low  of  about  six  pages  per  reinking 
to  a high  of  about  20  pages. 

1.4  Limits 

(U)  The  RWM  has  been  dimensioned  to  take  a maximum  of  200 
systems  cind/or  20  trade  factors. 
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2.  RANKING 

(U)  The  setup  of  data  decks  for  the  obtaining  of  a ranking  eind 
sensitivity  analysis  has  already  been  described  in  detail  in  Section  11.4. 

This  includes  control  parameters,  print  control,  initialization  of  mis- 
cellaneous parameters.  Trade  Factor  input,  and  System  names,  and  System 
Data. 

(U)  The  model  is  a single  load  modvile  without  any  link  overlay. 
After  all  required  data  has  been  input,  a ZIP- 8 control  card  produces  an 
execution  of  ranking  cind  sensitivity  analysis  as  discussed  in  Section  II.  4.  7. 
A way  of  doing  several  parametric  variations  of  some  set  of  parameters  in 
a single  computer  run  is  also  discussed  in  Section  11.4.7. 
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(A^'^Z  Reverse  Side  Blank) 


- (liiClASSIfrEO  - 


C LA0305  RtLATIVE  WORTH  MODEL  ' MALNOOIO 

C PGM-NUTlRhMI  L.D. GREGORY  VERS.  1 JULYTl  EBCO.FORT.IV ~ HAIN0020 

_ MAIND030 


INTEGER  ZCODE.ZTP  

NATN0035 

COMMON /TRADEl/  Ell  ZO ) ^ Til  2017  TIMAXI  201 , TIHINI  201  ' ~ ' 

MAINOOAO 

COnnON/HAINS/  ISCDRE* IBOUNDtNSVSTHfTlFAPAN,HATRXtNRANKtITRA0EtI0ATAMAIN0050 

COMMON /MA INI/  BHORTH*  XBASEI  20) 

HAIN0055 

LUrtnUN/MA  In^/  bNAHt  i ^ 00 1 i u 1 1 I^AKAnt 

HAIN0060 

CGHHUoi / iNUuT / NLlNEf  NPAGk  t PC(JuE4^0)f  Ika^hC^OA 

MAIN0070 

DIMENSION  ZCOOEtlV) 

NAIN0075 

ION  hOHO  ( it ) »h(JlUI  iOl 

MATNOOeO 

EUUlVAL ENCE  1 NBRNCHt ZCUDE f 2) ) t ( 1 SE T tXCUUE 1 A 1 ) 

MATN0085 

DATA  BLANKA/AH  / 

MAIN0090 

ua)a  l ly  / *ziP  * / 

MAIN0095 

NAnti.i.^1  /NAni/  i^LUHbf  HAIKXt  ItIUUNUt  NIUPt  IIKAUbt  lUAIAf 

HAIN0096 

1 BnukTHi  xbA^b 

NA IN 0097 

lOCO  FORMAT (16 15) 

MAINOIOO 

i J i u pUkm Al 

NAINOIIO 

10 0 hUMn Al  ( l!>f 

HAIN0120 

IJ I 2 FORM At (^Xii5f5Xt2(2AAt2X) tlP2El0.3) 

MAIN0130 

ICOA  FORMAT  ( IX  t A3 1 OAA  ) 

MAINOIAO 

lO  1 A hUKflAi  i C>X  f A 3 f i M A A ) 

MAIN0150 

1005  format  ( 1 5 » 5X 1 1 OAA  ) 

HA1N0160 

1006  FGKMAI  (l!>9lXt21i?t  lblC«3l 

NAIN0170 

1 i 1 1 PORhAI  I iH  i 1 

NAINOIBO 

1700  FORMAT!  AA t3 12 tl 10 (AI 5t lOAAI 

MAIN0185 

1710  FORMAT  (/6X,AA.3I2tI10«AI5»10AA) 

NATN0186 

T(DPAR»20  - - 

HAIN0190 

NDSYS«200  ■ " ' ■ - 

MAINOZOO 

(TRADE >1 

MATN021D 

i DA  1 A=  I 

HAIN022D 

IBOUNDsO 

HATN0230 

MAT  R X*  0 

MATND2A0 

UT0P“NDSYS 

MAIN0Z50 

ISCORc  -I  - - ^ 

HATN0260 

BUORTH^O. 

NATN0261 

DO  110  r»ItNDPAR 

HAIN0262 

i 10  XBASEI I)«0. 

NArN0263 

11  WRITElBt  iiiir 

NATN0270 

c 

NATN0280 

c 

READ  BRANCH  CONTROL  ZIV  CODE 

HAIN0290 

c 

MAINOIOO 

10  REAo  ( 5t I loo)  ZCOUE 

MATN0310 

wRlTbl  6t  1 7lOl  ZCCJDb 

MAIN0320 

IFIZCODEI  1)  .NE . Zip)  Go  to  9 

HATN0330 

I F ( N Si NC H • 6T • ^ ) GO  TO  9 

HATN03A0 

IFlNBkNCH.LT.ll  GO  TO  V 

MAIN0350 

GO  T Ot It2«Jt4t^t6t7fBt9l • NbKNLH 

MAIN0360 

c 

HA1N036T 

c 

ENTER  baseline  DATA  AND  OUTPUr  OPTION  FLAGS 

NAIN0368 

c 

MAIN0369 

1 HEAD  (StNAmi 

NA1N03T0 

WRITEl BtNAMi) 

MAIN0371 

GO  TO  11 

NAIN0372 

c 

MAIN03BO 

UNCI  ASS  F FO  - . 

uif  u L nuui  1 1 L II 

■ 

i 

4 


■ r 

n 

V 

1 


UNCLASSIFIED  : 


C 'EmTER  Trade  factor  data  --  " MATN0390 


c 

MAIN0400 

2 iFl  ISET.GT.OJ  GO  TO  2C 

MA1N0410 

JU  21  l=ltNOPAR 

MA1N0420 

TlMAxflT  = 0.  ■ 

MAfN0430 

f I H IN  (II  * 0 • 

MA1N044O 

jo  19  j=T. 6 

MA1N0450 

“19  Pl^RAHTTt  JA«BLANKA  ' - - _ 

MA1N0460 

71  ITONTINUE  - 

MAIN0470 

NPTIRAN*!  - - . - 

MA1N0480 

20  IFTTSCT  .Eu.  2i  CALC  C0H6NE  (rSFD 

MA1N0490 

iFIlOET  «EU»  3)  GO  TO  10 

“ kFAlNOSOO 

Ld  READ  ( Sv  lU02  lit  ( HOLOC  JItJ  ^ lf6l 

MA1N0510 

vift  lT£(6t  10  121  Iff  ( HCLD I JIffJ  = lff6l 

MAIN0520 

iF(I)22flJi23 

MAIN0530 

“22  IREAO^-l 

' MATNOBAO 

1 “ ™ X 

' MATNOBSO 

“00  T0“7A  " ' - - 

MA:1N0S60 

2T“rRTA0»  0 

“ MAINOBTO 

24  IFTI.GT.NOPAR)  GO  TO  9 

MA1N0586 

NPARAH^HAxOINPARAM, 1 ) 

MAIN0590 

I IHAXA 1)  * h0LD(6) 

MAIN0600 

rlHlNin  = h0L0(5) 

MA1N0610 

iFlHOLOd)  .EQ.  BLANK4I  GO  TO  29 

MAtN062O 

DO  27  J « 1,4 

MA1N0630 

27  PARAM(I.J)  « HOLO(J) 

MA1N0640 

29  IF  (IREAO) 10, 18,16 

MA1N06S0 

c 

MA1N0660 

c 

RtSEf  OUTPUT  Options 

MA1N0670 

c 

MATN0680 

i READ  <5,10001  ISCORE,  HATRX,IB0UN0,NT0P,1TrAOE,1UATA 

MA1N0690 

(«kirE(6, 1010)  ISCURE,  NATRX,1B0UN0,NT0P,ITRA0E,10ATA 

MA1N0700 

IFINTOP.LE .0)  NTOP^NOSVS 

MAIN0710 

uO  to  10 

MA1N0720 

c 

MAIN0730 

c 

RESET  RUN  IDENTIFICATION  PCOOE 

MA1N0740 

c 

MA1N0750 

<»  READ  <5,1004)(PCODE(I),I>1,20) 

MAIN0760 

nRITEIO, ID  14) (PCOOE ( 1), 1-1,20) 

MA1N0770 

npage-o 

MA1N0780 

c 

00  TO  10 

MA1N0790 

MAIN0800 

c 

reset  PCOOE,  TITLE  PAGE,  COMMENTS 

MA1N0810 

c 

MA1N0820 

5 lALL  start 

MAiN0830 

00  TO  11 

MA1N0840 

c 

MA1N0850 

c 

enter  system  descriptions  - names 

MA1N0860 

c 

MA1N0870 

6 REA0(5,10U5)  I , ( HOLD! J ) , J-1 , 10) 

MA1N0880 

IF(  ISET.GT .0)  GO  TO  666 

MA1N0890 

OO  6666  k«l,NOSYS 

MA1N0900 

DO  6666  J-  1,  10 

MAiN09l0 

6066  oNAMEIKtJ)  ^ BLANK6 

MA1N0920 

666  ISET-I 

MA1N0930 

- UNCLASSIFIED  - 

A-6 ^ 

UNCLASSIFIED 


I FI  I IGl  . 10.62 

MA1N09A0 

61 

NA1ND950 

i*--r 

KAIN0960 

GO  TO  66^  

NAIN0970 

62  IREAD»0 

HA  TN 0980 

6 A IFl r.6T .TJDSrSl  GO  TO  9 

1IATN0990 

TJO  65^  JM.IU 

HATH 1000 

65  5WSHEI  1,  JT*HUtDCJJ 

HAIn 1010 

IFTTREA07T0,E.6 

haIn iO^u 

C 

HATN1030 

C 

ENTER  STSTEW  OATA  ’ 

HATNIOAO 

' c - 

HA1N1050 

7 Ih  i i i 1 *0 IGU  1 0(  71 1 7003 1 702  ItTTSOJt  ISEI 

HA 1 N lO&U 

NSYSTH*!  - 

RAINI 070 

71  KSYSTH=I  - - - - . - 

HAIWIOBO 

rREF*0  - - - 

HA1N1090 

70  REA0r5t 10061  1 t JA t JB . (HOLOl J1 • J-1 t f 1 

RA TNI 100 

TFT  177  2, 117.  73 

HA IH 1 1 i 0 

72  1REA[^-1 

HAlN 1 120 

T--r 

HAIH 1 1 30 

GO  TO  7A  - - - - 

HATNllAO 

73  IREAO«0 

NATN1150 

TA  IFTI.CT.NDSYSI  GO  TO  9 - - 

Ha  In  1 l6U 

TFIJA.GT.NDPARI  GO  TO  9 

HA In 1 L f u 

IFlJ».GT.NOFARr  GO  TO  9 ' ' ' ” 

NATN1180 

TFIJA.Gr.JFr  GO  TO  9 

HA INTI  90 

NSYSTH^NAjrOCNSYSTH.I) 

HAIN 1200 

“ IFll.EQ.IREFI  GO  TO  75 

HATN1210 

IREF*! 

NAIN1220 

1A‘»0  ■ 

HAmi230 

7S  IFTJA.IiE.CI  GO  TO  76 

HAm2A0 

JA»TATI 

HAIN 1250 

JB>iMlNO(  rAT7,NDPAR} 

hAIn  12c>u 

76  K*0 

NA 1 N 12  f 0 

DO  77  J^«JA.JB 

RATNIZBO 

T(»K*1  - - - 

HATN1290 

77  Xrif  JJ»F«3LDrKJ 

HAIN i JOO 

TFriREADT10.7D.7C 

HAIN 131U 

75  IA«IA>T 

TIAIN132D 

GO  TO  78 

HArN1330 

c 

HA INI 3 AO 

(T 

EXECUTE  RANKING 

HAIN1350 

- c 

HAIN 1 360 

8 NRANK-RINOTNSYSTN.NTOP)  ' _ 

NATN1370 

CALL  RANIT 

HATN1380 

' GO  TO  rr  ‘ ~ - 

HATN1390 

~z 

TIATNIAOO 

c 

EXIT  -TERNlNAnON  OF  ROUTINE 

HA 1 N 1 A 1 0 

9 (TAtL  TlfTT 
— GUTTir  ITT 


C 

C 

-c 


am 


DfWEWSIOW  i5TrZ6l,*LC26rtT.St200rtLPUOI  tCDEm 

UNCLASSIFIED  - 




T«iwr«o 

TWTN14W 

TWTWl^SO 

MlTTir^TO 

H*TNI4»0 


o o o 


UNCLASSIFIED 


r 


fc 

i; 

ii 


4>ATA  DSH,iRU/lH-,lH0/,C0£/2H*O,MMU,2HPO,2HNO#2HRfc,  MAlNi49b’ 

i 2hSUi2hOIi2HAQ«2H  / ' ' HAINISOO' 

7003  ' ■ ' MAINL5L0 

MAIN1S20 

READ  SYSTEM  INDEX  LIST  ~ ~ MAIN1330 

BAINI540 

7004  READ  1 5, 7000)  (LST ( I ) . AL I T ) . 1*1  *26} MAINTSSO  ~ 

■iRITE(6»7700)fLST(T), ALII  ). 1*1. 261  SAINI560 

00  7001  1*1,26  MAlNi570  " 

IL*LSTin  ~ MAINlTdO 

iFIIL.EQ.OI  GO  TO  7C10  MAiNmO 

ALP*ALIII  ~ HAINI600  ' 

IFIIL.EQ.iO.ANO.ALP.EO.ZRO)  1L*100  MAINlblO  ' 

lI  = K41  - - _ . - MArNlGZO 


lS(K)*IL  - - - 

~~  MArNl630  ~ 

I F ( ALP .NE. OSh)  GO  TO  7001 

1IAINT640  ■ 

IL*IL4I 

MA^IN1650 

JL*LST( !♦! )-l 

MArNT66D 

1 F IJL  .EQ .9  • AND  .AL I I * 1 1 .EQ.ZRO ) JL*99 

MA1N1670 

DO  7002  J*IL,JL 

MAINUW 

ll*K*l 

MAIN 1690 

70  UE 
7001 

7010 

lS(K)*J 
oONTiNUE 
oO  TO  7004 

IF(K.EQ.O)  GO  to  lO 

MAINITOO 

MAlNi710 

MAIN1720 

MAIN 1730 

kS*K 

NA1N1740 

C 

MA1N1750 

C 

kEAO  modification  OPERATION  AND  PARAMETER  INDEX  LIST 

MA1N1760 

C 

MA1N1770 

7021 

READ  15,7070)  CODE , ADUM, A0UM2 ,FACrOR, ( LSTI 1 ) , ALU ) , 1- I , 16) 

MAIN  1780 

rK1TE(6,7770)  Code,  AOUM.AOUMZ, factor,  (LlTU  I,  ALU)  ,1*1,16) 

MA1N1790 

DO  7020  1 *1,9  - 

MAfNlSOO 

IFICUDE.EW.COEI 1))  GO  TO  7030 

MA1N1810 

7020 

uUNTlNUE 

MA1N1820 

00  TO  9 

MA1N1830 

7030 

RCODE*l 

MAIN1840 

oO  TUI 704i, 7041, 70«1, 7041,7021,7042,7043,7044,7003) ,KCOOE 

MAIN1850 

7042 

factor  * - FACTOR 

MAIN1860 

XCODE  * 1 

MAIN 1870 

7043 

GO  TO  7041 

FACTOR  * 1./  FACTOR 

NA1N1880 

MAIN 1890 

4 CODE  « 2 

MA1N1900 

oO  TO  7041 

NAIN1910 

c 

t 

FACTOR  * 1.  / FACTOR 

MAIN1920 

4 CODE  « 3 

NAIN1930 

7041 

4 *0 

MAIN 1940 

DU  7011  1 -1,16 

MAIN  1950 

1L-LST( I ) 

MA1N1960 

iFflL.EQ.D)  GO  TO  710C 

MA1N1970 

4 » 44l 

NA1N1980 

lP(4)  * 14. 

NAIN1990 

IFIALI  I)  .NE.OSH)  GO  TO  7011 

NA1N2000 

IL-  IL^l 

NA1N2010 

JL  - LST(1»1)  -1 

MA1N2020 

DO  7012  J-IL,JL 

NA1N203O 

iiupi  Accicicn 

uiiuLnouii  ILU 

A-6 

UNCLASSIFIED 


-- 

K » Kv  1 

HAIN2040 

7Ul2 

L PI  m « j 

MATNZDSO 

70  IT 

CONTINUE  - - - 

7IAIN2D60 

7100 

KP  * K 

TTATNZD7Q 

lF(KCUUk*EU*4l  GO  TO  7600 

N*IN20ffO 

DO  7050  T«T>KS 

TWIN7D70 

IL  = LSTII 

TWTN2100 

DO  7050  J»ItRP 

mriNZiio 

JL»  TPI  JI 

HIIN2120 

GO  TO  ( 7U51 1 7052 1 7053t 7021 1 702 1 1 t KCOOE 

7TATNZ13D 

705 1 

XllLfJL)  * XflLfJLI  ^ FACfOR 

HATN2160 

GO  TO  T050 

7TATNZ150 

70  5 2 

X(iLtJLI*  XllLfJL)  ^ FACTOR 

HAIN2160 

GO  TO  7050 

KATN2170 

7053 

XriLtJTI  * XllLfJL)  FACTOR 

NAIN2180 

7050 

CONT IN  Uk 

N*mZ190 

GO  TO  7021 

HA7NZ200 

76  00 

LBLOCK*LPI2)  . - - — - 

TIAIN2210 

N0RN>LP(1I  ' 

HATNZ220 

00  T6^0 

KAIN2230 

IL»LSI I T 

NATN22A0 

DO  7650  J»3fKP 

NATN2250 

OL»LP( J ) 

NAIN7260 

IREF“l JL-11*LBL0CR 

HAIN2270 

IK* IRtFFI 

7IAINZ280 

JR* IREFUL BLOCK 

IWIN229D 

NO*IRcF^NORH 

7IAIN23D0 

FACT*Xt 1 L f NO  1 /F AC TOR 

NAIN2310 

00  T65 0 KL^IKfJK 

NAIN232( 

lFIKL«kU«NU)  GO  TO  76^0 

7AATN233C 

X ( IL  ffKL  l*XI IL9RLI ^F AC T 

ITATN23A0 

7650  tUNlIWUE 

WAIN2350 

GO  TO  7021  flXIN2360 


7000  FORMAT  T76II2«A1II  . — 

■MAIN 2370 

flOO  FOKNA  T ( 5Xt 261 1 2 9 A 1 1 1 

1NAIN2380 

707 0 FORMAT (A292A69ElC«39lOX9i6tl29Alll 

NAIN2390 

777  0 FORMATl5XtA7,2AA,E10.3,rDXf I6TTZ7A1TT 

' HAIN2400 

f i READ  ( ^ 9 1 000 1 Jl9l29Jli9J29NS 

NAIN2A10 

IF  (NS*GT*OI  NSVSTH  * NS 

MAIN2A20 

1 F T 1 1 • L E • 0 • AND  vNS  •L  E * 0 ) GO  To  10 

NAIN2A30 

IPIllaLEaOl  GO  TO  7750 

NAIN2440 

DO  7751  T * ITf  12 

MAIN2450 

READ  (5f7752)  ( X(l9Jl9  J * Jit  J2 1 

miN2460 

7752  FukMAI  ilOX9l^Fd«Di 

MAIN2470 

7751  CONTINUE 

TTAIN2480 

GO  TO  T750 

7UTN2490 

END 

MATN250D 

“SUBROOTTITF  STiRT  — 5TJROOIO 

“C  “ * 5TIR0020  ■ 

Z^~  STIR0030 

L PGH»NU7IR>UHt  T..D.CIIE6DWT  WRS.  1 JUITTI  EBCD.FORT.IV  STAR0040  j 

C i OHLITT  SUBROUflHE  5TRR0050  l 

“ UNCLASSIFIED  il 


*-T 


UNCLASSIFIED 


* 


C PURPOSE  - To  READt  " ' _ STAR0060 

C 1.  PkUOE.  ONk  79  COLUMAJ  LABEL.  NtLL  BE  PRINTEO  AT  TOP  OF  EACH  PAGE.  STAR0070 
C TITLE.  EXACTLV  FIVE  CAROS  (OMIT  COLuMN  IV.  PRINTEO  ()N  PAGE  1.  STAROOSO 

c 3.  Comments,  up  to  S20  Caros  of  comments.  Eroblem  oescription,  etc.  staroo9o 
C rilLL  BE  PRINTEO  ON  PAGE  2.  50  LINES  TO  THE  PAGE.  STAROlOO 

C TWO  SUCCESSIVE  BLANK  CARDS  DENOTES  END  OF  COMMENTS . STAROllO 

C A.  M1SC(7).  7 INTEGERS  (lOXtTTlO).  XMISCTTI . 7 REALS '( lOX .TFlO.A)  STAR0120 

lOMMON/INUUT/  NLINE.NPAGE,  PCODEIZOTT  TRASH(20>’  STAR0I30 

c ■ ■ STAROIAO 


■ COmMON/TITlEI/TITlEI 100I,HISC(7),XMISCI7)  STAR0150 


c 

\ 

STAR0160  1 

DATA  BLANK/  4H  / 

STAROlfO 

c 

StAROieO  1 

1000 

FORMATllX. A3,19A4) 

STAR0190  1 

1004 

FORMAT!  lOX.TIlO) 

STAR0200  > 

lOOo 

FORMAT 1 lOXt7F10*OI 

STAROllO  i 

2000 

FORMAT! IH1.71X,  AHPAGE.IA/AX 

f A3  f 19AA/ / ) 

STAR0220  i 

2002 

F0RmAT!6X.A3,19AAI 

STARD230 

2004 

F0RMAT(12X.  4HMISC.7I10) 

STAR0240 

200b 

FORMAT! 11 X.  5HXMISC.7F10.A) 

STAR0250 

2010 

FORMAT!/////////// » 

STAR0260 

2020 

FORMAT1//40H  ERROR.  MORE  THAN  520  LINES  OF  COMMENTS//! 

STAR0270  1 

CXX 

STAR02a0  ^ 

CXX 

STAR0290  J 

1 

KEAU(5.1000)  PCOOE. TITLE 

STAR0300  1 

NPAGE  > 1 

StAR0310 

CXX 

STAR0320 

WR1TEI6, 20001  NPAGE. PCOOE 

STAR0330 

MR1TE!6.2010> 

SfAR0340 

MRirE(b.2002)  TITLE 

STAR0350  ; 

C AA 

STAR0360  ' 

NFLAG  - 0 

STAR0370 

NLlNE  > 0 

STAR0380 

4 

NPAGE  > NPAGE  ♦ 1 

STAR0390 

WR1TEI6. 20001  NPAGE. PCODE 

STAR0400 

CXX 

STAR0410 

10 

NLINE  « NLINE  1 

STAR0420 

REAOIS.IOOO)  TRASH 

STAR0430 

CXX 

STAR0440 

00  20  1 > 1.20 

STAR0450 

IF  (TRASH! 1) .NE. BLANK! 

GO  TO  26 

STAR0460 

20 

CONTINUE 

StAR6470 

NFLAG  « nFLAG  ♦ 1 

STAR0460 

1F(NFLAG.GE.2! 

GO  TO  36 

STARO490  ^ 

GO  TO  28 

STAR0500  j 

CXX 

STAR051O 

2b 

NFLAG  « 0 

STAR0520  ' 

CXX 

SfAR0530 

2B 

MR1TE(6.2002!  TRASH 

SfAROSAO  !j 

1F(NL1N£.LE.520! 

GO  to  30 

STAR0550  ] 

MR1TE(6.2020! 

STAR6560 

CALL  EXIT 

STAR0570  1 

CXX 

STAROSSO  ^ 

30 

K > NLINE  - 1 

STAR0590 

IF  (M00!k.50!.E0.49! 

GO  To  4 

STAR0600  1 

UNCLASSIFIED 

1 

1 

- - *-»  _ . 1 

n o 


UNCIASSIFIEO  r: 


"STAftOilO 

~STAR0&20 

SrAR0630 

“STAR06A0 

^TAR0650 

^TARO660 

STAR0670 

"STW06BO 

3TAR0690 


SUBROUTINE  CDNBNE  rRSETI'  ' CDNBOOlO 

PGN*NU7TRH»I  L.D. GREGORY  VERS.  1 UOLY71  EBCO7F0RT.TV COHBD020 

COHBO030 

COHHON7HAIN3/  ISC0RE,TB0UND,RSY5TN,NPARAH,WATRX ,NRANK,TTRAOE71UATACOHB0040 

COHHON/NAIN2T  TITLEIZCOfTOI,  PARANF  20  ,♦!  , Xt 200f 20T  CONB0050 

- COHHONTTRADf  1/  EIC  20),  T1 T 201,“  TTIWR  f ED  I , TIHTNC  201 COHB0060 

DTNENSrON  VNANE(AC,2J,  CNANE(10,2I,  3/(401  ,0110)  EVlAOl  ,“EC1101  CO)(B0070 

1 READ  15,1000)  rV,JV,  NV  , IC,  JO,  WO  ,NE  “ COMB0080 

■“  IF  INV.GT.  0)  NVI  * NV  _ - C0NBD090 

IF  (NC.GT.  01  NCI  * NO  “ CONBOlOO 

IF  riv  .GT.  or  READI5,lO01)  rrVNAHE(r,-jr,J»I,21  ,Vri),EV(TI,I-rV,JV1COHB0110 
IF  ric  .GT.  0)  REAOT5,I001){rCNANETr,jr,J«I,2X,C(I)  ,EC(T),I-TC,JO)CDNB0120 

IFTNE.CT.O)  CO  TO  300  ~~  " ' COWBOISO 

IFTIC.GT.O.OR.1V.GT.O.OR.NV.GT;^O.OR.NC.GT.01  GO  TO  I CONBOI40 

““  GO  lOD  I « I,  NVI“  * " “ CONB0150 

VT  - vni  “ “ COHB0I60 

- - EVTi  EV(I)  “ " - --  - — CONB0170 

VNT  • VNANEII,!!  “ C0NB0180 

VNZ  » VNANEri,2)  - - _ — CONB0190 


Tc  » mcTYd  - I)  

(n3NB020D 

DO  lOu  J * 1 1 nC  1 

GONB021D 

K ■ K ♦“T  ■ — . - - - 

T:ONB0220 

IFIK  20 1 GU  TU  2Q0 

CONB0230 

P Aft  AMI  K f 1 1 * VN 1 

COMB0240 

RARAH1R,2)  « VN2 

COHBO250 

PAftAH4Ri3l  • CNAMElJtll 

CONB0260 

PAftANIKfAl  * CNAMElJfZI 

CONB0270 

TlRINfR)  » -VI  4 0(21 

CONB0280 

ICO 

TIRAX(K)  « EVI  ♦ EC(JI 

CONB0290 

K5ET  ■ 3 

COMBO 300 

XRARAN  s K 

CDMB0310 

RETURN 

TDMB0320 

200 

NR  1 TE(  6 , 1002  ) K 

CDNB0330 

1002 

PGANAr(INl,6X,4HK  « t I5,17HE)(CEEDS  20  tlNlT  I 

CDMB0340 

Call  exit 

CDMB035D 

loOO 

EuftMAT  1 l6l5) 

CONB0360 

LCiOl 

PUftM AT  1 10 Xv 2A A f l2 Xf  2E  10«  3 1 

CONB0T70 

»co 

REAOISflOOSI  K V vL. W t KC  tL.C  f ERROR 

C0MB0380 

IFIRV.LE.D)  GO  TO  301 

CO)TB0390 

00  310  I«ICV,LV 

GONB0400 

310 

EV(I)-ERROR 

CONB041D 

1003 

format (4I5,F5.0) 

COMBO420 

301 

if(kc«le«oi  Go  to  1 

CaMB0430 

IINCIASSPIEO 

unuLnuuii  ILU 

A-9 

GO  TU  10  

3o  “ READ! 5, 1004)  RISC  

READ(5,ia06IXNI5C  

WRITE(6,2004^)HISC  

l/RrTE(6,2006)XHTS): 

CXX  “ ■“ 

RETURN  “ 

““  ' END  “ 


o n o I rv  o o 


— - UNCLASSIFIED- 


UO  320  1«KC«LC 
320  fcCtli-ERRUR 
uO  TU  I 
tNO 


:»UBROUTINE  RANK 

RANKOOlO 

PGM-NU7LRWNi  L.O. GREGORY  VERS.  1 JULYfl  EBCD.FdRt.jV 

RANK0020 

RANK0030 

RANK0d4d 

CONHON/MAINS/  ISCORE*  IBOUND»NSYSTM,NPARAM*MATRX  .NRIENfC.  TfRAOE  t lOAT ARANKOOSO  ~ 

U0MWN/MAIN2/  TITLE! 200*  1C),  PARANr20,4),  X!200,20) 

RANK0060 

I.QHHON/RANOUT/  Iin>TEK!200),TEKAVG{200)  , JAvTEK(2DD)  ,LOWTEk12O0) 
~ uOMMON/RANKl/  ZTfcST,  JA.^JSr  IGNORE!  201 , IGNORT!  20)  ' ' 

RANK0070 

RANK0080 

COHHON/TRauEI/  EU  20),  Tl!  20),  TIMAXI  20),  TlMlN!  20) 

RANK0090 

LOMHON/INuUT/  NLINE,  NPAGE,  PC0DE(20),  TRASH(20T 

RANK 01 00 

OlMENSION  1AVTEKI20C)  " ' ' ' 

RANKOIIO 

ZTEST  = I. £-20  " ■ ■ 

RANK0120 

CALL  TRADE 

RANK0130 

JA 

RANK 0140 

JU  > NPARAM 

RANK0150 

call  score ITEKAVG) 

RANK0160 

CALL  SORTifEKAVGt  lAVtEKt  JAVtEK  » “ RANKOITO 


CALL  OUtPUTll)  “ RANKOiBO 


IF  IIBOUNU  .LE.  0)  GO  To  10 

RANK0190 

JA  » 1 

RANK0200 

JU  > NPARAM 

RANK0210 

CALL  SENSIT  (TEKAVG,  lAVtEK,  IUPTEK,  LOUTEK) 

RANK0220 

CALL  OUTPUT (2) 

RANK0230 

10 

IF  (ITRAOfc  .Gt.  0)  CALL  0UTPUTI3) 

RANK0240 

IF  (lOATA  .GT.  0)  CALL  0UTPUT<4) 

RANK02B0 

RETURN 

RANK0260 

LNO 

RANK0270 

SUBROUTINE  TRADE 

TRAOOOlO 

TRAOO02O 

PGM> 

>NU7(RWM)  L.O. GREGORY  VERS.  1 JULV71  EBCO.FORT.IV  TRA00030 

TRA00040 

COMMON/MAIN  3/  ISCDRE , I BOUND, NSYSTM, NPARAM, MATRX, NR ANK, 1 TRADE , IOATATRAOOO»0 

UUHMUN/MAIN2/  T I TLE 1 200, 10) , PARAMf  20,4),  X(200.20)  TrAOOOPO 

i,UMNON/RANKl/  ZTEST,  JA , JB , IGNORE!  20),  IGNORT!  20)  TRADOOtO 

CUMMON/TRAUEI/  Eli  20),  Tl!  20),  TIMAX!  20), 

TIMIN!  20)  TRADOOBO 

00  100  J > 1,  NPARAM 

TRA00090 

YAL  > TlHlNiJ) 

TRAOOlOO 

IF  !ABS!YAL)  - ZTEST)  40,  41,  41 

TRADOllO 

40 

IGNORT !J I > 1 

TRA00120 

IGNOREIJ)  « 1 

TRA00130 

GO  TO  100 

TRA00140 

41 

YAU  - TIMAXIJ) 

TRAOOISO 

IF  IVAU  • YAL  - ZTEST)  42,  42,  43 

TRA00160 

43 

I IIJ)  « !VAU  « YAL)  * .5 

TRAD017C 

EI!J)  - ABSiYAU  - YAL)  * .5 

TRAOOlBO 

IINPI  AQQIFIFfl 

URULnuuiriLU 

A-IO 

COM  ^440 
COHB0450 
COM^460 
COMBd470 


n n r- 


::  UNCLASSIFIED 


GO  TO  9<5  TRA00190 

^Tl(J)  * YAt  ■“  TRA00200 

PCT  i ABStTAU)  TRAD0210 

~ IF  IPCT  - 7TE5TI  10,  11,  Tl TRAD0220 

10  TlHAXtJI  * YAL“  TRAD0230 

_ EKJJ  = 0.  - TRAD02A0 

GO  TO  99  ~ ■ TRA00250 

11  EIJ  = AByiYAL  ♦ PCTJ  — TRAD0260 

TlHINl  JT  « YAL  - EIJ  ‘ TRA00270 

TIHAXIJI  = YAL  ♦ E1J~  ’ — TRAD0Z80 

EltJ)  * EIJ  ~ TRAD0290 

”99  ICNORTUr  * 0 — - TRAD0300 

IGNORE (J1  * 0 --  TRAD0310 

IF  lEKJl.LT.  ZTEST)  IGNORE(J)  » 1 “ TRAD0320 

100  CONTINUE  “ TRAD0330 

RETURN  ■ ” TRAD03A0 

END  - TRAD0350 


SUBROUTINE  SCORE  (XSCORE)  ~ SCOROOlO 

~ SCOR0020 

PGH>NU7(R«<H)  L.D. GREGORY  VERS.  1 JULY71  EBCO.FORT.IV  SCOR0030 

~ SCOROOAO 

C0HH0N/HAIN3/  I SCORE , 1 BOUND, NSYSTH,NPARAM ,NATRX , NRANK, ITRAOE, IDATASCOR0050 
” CONHON/HAINl/  BWGRTH,  XBASE!  20J  - 5COR0055 

■ COHHON/HAINZ/  TITLE(Z00,10) , PARAHI  20,A),  X(200,20»  “SCDR0060 

COHHON/RANKl/  ZTEST,  JA , JB,  IGNORE!  201,  IGNORT!  20)  ~ SCOR0070 

CONHO^/TRADEl/  El!  20),  Tl!  20),  TIHAX!  20),  TIHIN!  20)  SCOR0080 

“DIMENSION  XSCORE(200)  “ “ SCOR0090 

' 00  410  I » 1,  NSYSTM  - _ jj^qROIOO 


<,10  XSCORE,!  I)  =•  8W0RTH  ” ” “ SCOROllO 

DO  400  J « JA  ,JB  ~ ■ “ “ SCOR0120 

IF  IIGNORT(J))  10,  1C,  400  ” " SC0R0130 


10 

TIJ  - T1!J)  

SC0R0140 

BASEST 1J4XBASE! J) 

SC0R0145 

00  I * Lf  NSVSfH 

SCDR0150 

<,20 

XSCORE! I )-XSCOREII) 4X11, J)*T1J'BASE 

SCOR0160 

<,00 

CONTINUE 

SCDR0170 

RETURN 

SCOR0180 

END 

SCOR0190 

SUBROUTINE  SORT  ! XSCORE , IRANK, I SYSTN) 

SORTOOlO 

c 

50RTOD20 

L 

PGM=-NU7!RwM)  L.D. GREGORY  VERS.  1 JULY71  EBCO.FORT.IV 

“ 5DRT0030 

C 

HlOHtST  (flVkS  nlOHfcbl  KANK  (LU^iIkUL  UT  ^UKlU13Ut(}^lUf  i 

SORT0035 

t 

SORT0040 

DIMENSION  XSCaRE(200),  IRANK!2001,  ISYSTNI200) 

SORTOOSO 

CONhOn / HA  IN 3 / 1 SC UHk  t IduuNUvNS^VSI H^NPAK AH t H aI k a t NR ank $ ItKAUkt 

IDATASORT0060 

DO  20i  J a 1,  NSYSTM 

SORTOOTO 

201 

IRANK!  J)  a J 

” SORTOOBO 

202 

1*1 

SORT0090 

203 

lA  a I ♦ 1 

SORTOlOO 

lINfll  AS^IFIFfl 

unuLnooiriLU 

A-11 


UNCLASSIFIED 


JB  = IRANK  ( lA  ) 

SORTOllO 

JA  * tRANKi  11 

S0RT0120 

IP (XSCORE(J A l-XSCORE(jBn 205(204.204 

SORT0130 

20S 

1RANK(  i > =>  JB 

SORT 0140 

IRANK(IA)  = JA 

S0RT0150 

J “ i 

SORTOIBO 

206 

JA  = J-1 

SORTOitO 

IF  (JA)204(2C4(208 

SORTOIBO 

20b 

lA  = IRANK (JI  ■ 

S0RT0190 

IB  * IRANK (JA) 

SORT0200 

IF (XSCOREl lAI-XSCOREI IB) ) 204.204(209 

SORf0210 

209 

IRANK(J)  = IB 

SORT 02 20 

IRANK(JA)  = IA 

S0Rr0230 

J = J-1 

S0RT0240 

GO  To  206 

S0RT0250 

204 

1 = !♦! 

S0RT0260 

IF  (1-NSYSTM)203.250.250 

S0RT02T0 

2 50 

J «=  IRANKl  1) 

S0RT0280 

ISYSTMIJ)  1 ' 

S0RT0290 

IREF  * 1 

kef  » XSCOREl  J) 

SORT0300 
sort 03 10 

00  260  1 2.  NSYSTN 

SORT0320 

J IRANKl  1 ) 

S0RT0330 

IF(REF-XSCORE(jn  11.11(10  * 

S0Rr0340 

lu 

kEF  = XSCORE(J) 

sort 03 50 

IREF  - I 

S0RT0360 

iSYSTMlJl  - 1 

SortoBTo 

GO  To  260 

SdKT03SO 

11 

ISYSTN(J)  > IREF 

SORT0390 

<>60  CONTINUE 
kETURN 
CNO 


subroutine  SENSIT  ( XSCOREtlRANKtlUPPERtLOWER) 
PCN>NU7(RHNI  C.O. GREGORY  VERS.  1 JULYTl  EBCO.FORT.I V 
highest  score  gives  highest  RANK  (CONTROL  BY  SENS03S0> 


SORT 0400 
SbRT^04l0 
SdRT0420 


SENSOOlO 

SENS0020 

SENS0030 


C 

SENS0040 

OlMENSION  XSCORE (200) (IRANKl 200). 1UPPER(200) .LOWER (200) 

SENS6050 

COMNON/WURK/  SENS!  20) 

SENS0060 

C0MN0N/MA1N3/  I SCORE  . (BOUND. NSYSTN. NPARAM .MATRX .NRANK. (TRADE. 

(OAT ASENS0070 

t,0NN0N/HAIN2/  TITLE!  200.10)  . PARANl  20.4).  X(200.20) 

SENS 00 80 

COMNON/RANKI/  ZTEST.  JA . JB . IGNORE!  20).  IGNORTl  20) 

SENS0090 

UUMMON/TRAUEI/  El(  20).  Tl(  20).  TlNAXl  20).  TININl  20) 

SENSOlOO 

CONNUN/INUUT/  NLINE.  NPAGE.  PCO0E(20).  TRASH(20) 

SENSOllO 

9000 

FORNAT  (lHi.78X.4HPAGE.I3) 

SENS0120 

9001 

format  (7X.  A3.19A4) 

SENS0130 

2000 

FORMAT  ( 1H0(4X.I9HSENSITIVITY  MATRI X.55X,4HPAGE,  13) 

SENS0140 

2001 

FORMAT  (//5X. SHRANK  NO..  (2.  16(4X.I3)) 

SENSOiSO 

200^ 

FORMAT  (5X(7HSYS  NO..  13.  16(4X.I3)) 

SENS0160 

2003 

format  (6X.  I3.17( 1X.F6.2) ) 

SENS0170 

UO  700  1 « l.NRANK 

SENSOIBO 

J « IRANKl  1 ) 

SENS0190 

lUPPERlJ)  > 1 

SENS0200 

IINP.I  F hD 

unuLnOOii  iLu 

A-12 

— UNCLASSIFIED 


700  LOUER(J)  • NRANK  5tNS0210  1 


HTNUS  - NRANK-1 

SENS0220 

LINE  s 0 

SENS0230 

TPRGE  •~T~ 

5ENS0260 

TCOL  « 1 

SENS0250 

101  IR0U»IC0L*I 

SENS0260 

NCOL  ■ IC0L«^16 

SENS0270 

itCUL  * M i NUi  NCUL f HiNii 1 

SENS02B0 

100  00  600  I > ^OWtTiRANK 

SENS0290 

jCUl  * H i Nui  nCul  f i**  i 1 

SENS0300 

NO  » iRRNKlTT  --  - 

SENSD310 

GCOREQ  =»  XSCORFINQ)  ' 

SENS0320 

UU  6lu  K * ICULfjCUL 

SENS033D 

NP  ■ IRANKIKI 

SENS0360 

DPU  » XSCDREINPI  - SCOREO 

SEN50350 

EPQ  c 0. 

SENS0360 

uu  Oufu  «i  * jAfJb 

5ENS0370 

i ^ ( iuniOk tIJ  1 ^0 1 o^O 

SENS0380 

90  EPQ  ■ tPO  ♦ XBSTEIIJI  • f XTNP»  JT- TllNQf  JI J I 

5ENS0390 

620  CDNTTNire 

SENS0600 

TF  {EPQ~Z TEST  120 1 21 1 21 

SENS0610 

20  RXTIO* 99.90 

5EN50620 

IF  IZTEST-0PQ)32»32t50 

5EN50630 

21  RXTIQ  ■ DPQ/EPQ  ‘ " 

SEN50660 

IF  TRATI0-99.99r40»9rt91 

5ENS0650 

61  RATIO  » 99.99 

5EN5O660 

bO  f ll  32 

SENS06TO 

^0  IF  IRST ID -1.150*50732 

SENS 0680 

JZ" LOWERCWPI  « LOWERINPI-I 

SENS  0690 

njPPERINQI  » lUPPERfWarFT 

SENS05D0 

50  SEnSIKI  » RATIO 

SENS05TO 

bXO  CONfiNUfc 

SENS0S20 

1 fiA  f Ak ) 600 ff  600#  72 

SENSO530 

f 'id  11*  1 L 1 Mb  t I6f  75f  7 7 

SENS056O 

75  NFAGF  * RPACE6I 

SENS0550 

WRITEl  6t90001NPA6E 

6ENS0S60 

HRITEi  6»90DIHPci10E(LI*L>1  *201 

5ENS05TO 

800  lURTTEl6t2000I  IPX6F 

SENS 0580 

802  LINE«6 

5ENS0590 

GO  TO  78 

SENS0600 

76  L 1N£  • *L INE 

SEN5D610  ' 

76  UklTE(6t  200 1 1 ( K fK* ICQL  9 KCOL ) 

SENS0620 

MRITei 6t  2 002 ) i IKanK IKI 9K*iC0L9  k&qlI 

SENS 0630 

Line  « line^o 

“5ENS0660 

77  WRIlElbf  2003 I NO  9 1 SENS I 9 A*icUL  t jCOL 1 

SENS0650 

T.TNE  -T:TREFI 

SENS0660 

IE  i L iN E~60 1600 9 6 1 9 S I 

SENSO670 

81  tlNF^  0^ 

SENS 0680 

rPACE  ■ TPAGE6I 

SENS0690 

600  CONTINOE 

SENS0700 

TOOL  - ICOL  * 17 

SENSD710 

IF  ( ICOL -NR ANX 11 1175007500 

SENS 0720 

111  IF  (NA IRX  1 101 « 10 1* 1 12 

5EN50730 

112  TF  fllWE-AOm, 91*91 

SENS0760' 

91  LINE  » 0 ■ 

SENS0750“ 

UNulASSHED 

A^5 

UNCLASSIFIED 


IP  AGE  - IPAGE*! 

SENS0760 

GO  TO  lOI 

51hT5770 

93 

LINE  - -LINE 

SEN^OTBO 

GO  TO  101 

TENSCTYO 

O 

o 

RETURN 

fENSOSOO 

END 

EENEOBIO 

SUBROUTINE  OUTPUT  IKI 

OUTPOOlO 

c 

PGH> 

•NU7IRMHI  L.D. GREGORY  VERJ.  1 JULV71  TBCD.FORT.IVf 

OUTPOOIO 

c 

0UTPD036 

c 

Outpooao 

COMMDN/WOkK/  RNDAT*(  201  ~ (TUTMOSO 


;OMNON/TRAOE1/  Eli  2Dr.  Tlf  201.  TIIWXT^ZOT , TIMINT  20 ) 

DUTP0060 

COMNON/RANKl/  ZTEST.  JA , JB . 1GNOREI~20I , IGNDRTT  20) 

OUTP0070 

GaMMUN/NAiN3/  1 StOKt • IDUUNU tN^T^ in«NPAKAn tNA 1 KA tNKANK 1 1 IKAUEt  tUAI AUUIKUUSg 

CONNQN/NAIN2/  TITLE! 200. 1 0) . PARANf  20.4).  XI200.20) 

OUTP0090 

COMMON /RAN OUT/  I0PTEKl20a) .TEKAVGTZOOT. JAVTEKI200) .LOHTEKt2001 

OUTPOIOO 

COMMON/INOUT/  NLINE.  NPAGE.  PCODE(20T.  TRASH(20r 

OUTPOllO 

9000 

fORMAT  (lHl.7BA.4hPAGE.r3) 

OUTP0120 

9001 

format  (7x.A3.i9A4) 

0UTP0I30 

9002 

FORMAT!/) 

0UTP0140 

2000 

FORMAT  (1hO.Sx.21H3vSTEM  RANK  AND  SCORE.  E2X.4HPAGE.  13l 

OUTPOISO 

2002 

FORMAT  (IHO.  5X,  42HN0.  S V3TEM  DESTCrI  1 0 N. 

0UTP0L60 

1 9X.  SOhRANK  SCORF  . //) 

OUTPOITO 

2011 

format  f 6X.  I 3 . 2x » IDA 4 . 6X . 1 3 .7X . 1 PE 1 0. ST 

OUTPOIBO 

300g 

Format  ( iH0.sx.39HSySTEM  aankDig  SEKSIHvity  - rank  bound. 

OUTP0i90 

1 34X.4HPAGI.  13) 

0UTP0200 

3001 

FORMAT  ( IHO.BX.SSHiBASiO  ON  SYSTEMS  RANKED  1 THROUGH. 13. IH). 

0UTP0210 

1 /o0x.23HuPPER  Average  lOuert 

OUrP0220 

3002 

format  (6X.42hN0.  SVSTE~M  DESCRIPTION. 

0UTP0230 

1 12X.23HBOUNO  Rank  BOUND.  //  ) 

0UTP0240 

3004 

FORMAT  (6X. l3.2X.l0A4.10X.T3.6X.ty.6X.r3) 

0UTP02S0 

5000 

FORMAT  ( IH0.SX.27HPARAMETER  TRADE  FACTOR  DATA .46X.4HPAGE.I3) 

0UTP0260 

5006 

'FCRMATt lH0.5X.3HN0..2X.4HNAME.l8X.3iHNINlMUN  AVERAGE  HAX1NOUTP0270 

UM.  //)  

OUTP0280 

5002 

F0RMAT(6X. t3.2(2X.2A4).  3X.8HN0T  USED) 

.0UTP0290 

5003 

F0RMAT(6X. 1 3. 2( 2X . 2A4 ) . 3I2X.1PE10.3) ) 

OUTP0300 

6000 

F0RMAr(lHU.5X.21HS  VSTEN  DATA.  52X.4HPAGE. 13) 

OUTP0310 

6001 

FORMAT  ( 1H0.SX.3HSVS.  11(3X.2A4)) 

ourpo32o 

6002 

F0RMAT(6X. 3HNQ.. Ill 3X.2A4)) 

OUTP0330 

6003 

F0RMAT(6X.  13.  IK  1PE11.3  )) 

0UTP0340 

(PAGE  « 0 

0UTP0350 

^U  TU  1 100. 333. 55.601. K 

OUTP0360 

100 

IRON  « 1 

OUTP0370 

K ROW- 51 

0UTP0380 

111 

JROH  - MINO(KROW.NSYSTM) 

0UTP0390 

112 

(PAGE  - IPAGEFl 

OUTP0400 

rPAGE  - NPAGEFl 

OUTP0410 

WRITE (6. 9000 )NPAGE 

OUTP0420 

WRlTEI6.9001)rPCOOE(M).M-1.20) 

0UTP0430 

GO  TO  (2.3. 5. 6). K 

dUTP0440 

2 

WR1TE(6.2000)  (PAGE 

OUTP0450 

mRITE(6.2002) 

OUTP0460 

lINRlASSIFIFn  - 

unuLnooiriLU 

A-14 

T 


UNCLASSIFIED 


Tnw  TWTT  » rRoutJww — 

WmTEt¥t201il  r«ITlTLEIltJltJ> 


l.lOl.JAVTEini  rrTEKAVGlII 


QDTPO^TO 

dUTP04aO 


cimnrj 

33T  JWJMSO 



GO  TO  nz 


7 MRITEI^t'SOOOl  IPAGE 


WRITE!  7,7001 INRANK 

¥RTTEt7^3002I 


“OUTP0500 

“OOTPOSITT 

OUfPOSZP 

0UTP0510 

“ouTPos^a 


OUTP0550 

DUIP056O' 


30  WRITE  7 7^70077 

7T7^~T~7T 

IFII-i4STSTM)32t32*999 


DOTP0570 
OUTP0980 


,77,  “tOHTEKirr 


GO“  TO  3 3 


109  JROW>v> 


7X7  IF  (NSTSTfP-JROH  1999  7999 , 1T7 


' UUTP0600 
UUTP0610 
OUT P 0620 
TIOTPO630 
~ OUTP0740 
— OUTP0650 


1X7  IROW«JKOW*l  — 
JRDW^  NSTSTN 


OUT  P0670 
0UTP06T0' 
UUTP0680 ■ 


7R0W 


0UTP0700 

XIUTP0710 


WRTTET7750071 

7RDW  « HINOIJHUN, 

XJOTOOT^^ 


0UTP0720 

DOTPOTJJT 

00TF0T7O 


NFAWAHI 

JROW 


iron, 

IFriGNORTTJI.Eg.n  GO  TU  505 


DUTPOTfeO 
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RWM  SAMPLE  PROBT.EM  ( U 


1.  INTRODUCTION 

(U)  The  objective  of  Appendix  B is  to  present  a general 
technique  for  estimating  Trade  Factors.  These  were  defined  in 
Section  II  in  the  body  of  the  report  and  are  the  constrained  deriva- 
tives of  some  baseline  variable  with  respect  to  each  of  the  system 
variables  xj  (j  = 1 to  n).  The  technique  for  estimating  these  Trade 
Factors  is  presented  in  terms  of  an  example,  and  the  rank  and  rank 
bounds  are  included  to  show  the  effect  of  the  estimates  made. 

2.  SYSTEM  DATA 

(U)  The  example  chosen  to  illustrate  the  estimation  of 
Trade  Factors  is  taken  from  the  cruise  missile  concept  studies 
reported  in  Volume  IIIA  of  the  SEATIDE  documentation.  After 
an  initial  screening,  six  high  ranking  candidates  were  chosen  in 
each  of  three  concept  types:  Liquid  (light  payload).  Liquid  (heavy 
payload).  Solid  (heavy  payload).  These  were  then  put  into  the 
Relative  Worth  Model  for  ranking  and  sensitivity  analyses.  The 
trade  factors  used  are  shown  in  Figure  B-1,  and  the  eighteen 
systems  with  their  respective  weight,  range,  years  to  IOC,  and 
warhead  weight  are  shown  in  Figure  B-2.  System  1-6  are  Liquid 
rocket  (light  payload),  7-12  are  Liquid  Rocket  ( heavy  payload), 
and  13-18  are  Solid  Rocket  (heavy  payload)  types.  The  systems  data 

IS  fr<^  the  CM-CGSM  which  generated  the  candidates,  except  years 
to  IOC  which  was  added  later. 
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FIGURE  B-1 

RWM  TRADE  FACTOR  INPUTS 
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FIGURE  B-2 

RWM  SYSTEM  DATA  INPUTS 
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3.  TRADE  FACTORS 

(U)  Estimation  of  Trade  Factors  proceeds  as  follows;  Total 
missile  range  is  chosen  as  the  baseline  vi.riable  This  choice  is 

arbitrary  as  far  as  the  model  is  concerned,  but  is  best  done  to  enhance 
the  use  of  relations  best  known  to  the  analyst.  In  Figure  B-3  each  of 
the  other  variables  are  "traded"  against  the  baseline  variable  "Range". 

(U)  Launch  weight  vs  range  is  shown  schematically  at  the  top 
of  Figure  B-3,  The  eighteen  systems  from  Figure  B-2  would  appear 
as  points  inside  the  rectangle  as  shown  since  89  NM  is  the  smallest 
range,  and  156  NM  is  the  largest  range,  and  all  weights  are  between 
11,000  and  13,000  lbs.  Note  that  launch  weight  is  handled  in  thousands 
of  pounds  in  the  input  from  Figure  B-2,  hence  must  be  so  treated  here 
when  it  comes  to  units  for  the  trade  factor.  Rectangles  for  each  of  the 
other  variables  are  next  shown  vs  Range  in  Figure  B-3.  In  the  estima- 
tion of  trade  factors  it  is  imp>ortant  to  remember  that  the  estimation 
need  be  v^-lid  only  for  the  ranges  of  variables  represented  by  the  sides 
of  the  rectangles. 

(U)  The  four  corners  of  each  rectangle  should  now  be  labeled 
from  (1)  to  (4)  in  order  of  preference.  For  launch  weight.  Corner  (1) 
is  where  launch  weight  is  low  and  total  range  is  high.  The  opposite 
corner  is  automatically  Corner  (4).  The  choice  of  Corner  (2)  is 
critical.  For  launch  weight,  in  this  example,  it  is  felt  thr  t a range  of 
89  NM  for  an  air  launched  missile  is  unacceptably  low,  while  a weight 
of  13,000  lbs.  is  not  unacceptable.  Hence  the  upper  right  (156,  13,000) 
is  preferred  to  lower  left  (89,  11000)  for  the  launch  weight  rectangle. 

In  this  example,  it  so  happens  that  in  all  three  rectangles,  the  upper 
right  was  chosen  as  Corner  (2).  A special  comment  is  due  on  the 
rectangle  for  Warhead  Weight.  Ordinarily  increasing  warhead  weight 
is  deemed  desirable,  hence  the  upper  right  corner  would  be  Corner  (1). 
But,  if  the  analyst  felt  that  the  heavy  warhead  produced  needless 
"overkill"  and  preferred  the  smaller  size,  then  he  could  label  as  shown 
in  this  example. 

(U)  Next,  establish  between  Corner  (1)  and  Corner  (3)  a point 
of  equal  preference  to  Corner  (2).  The  analyst  may  have  difficulty  in 
deciding  exactly  where  this  point  is  (or  two  different  analysts  may  not 
agree),  but  upper  and  lower  bounds  may  be  selected  as  shown.  For 


launch  weight,  one  might  feel  strongly  enough  about  the  importance  of 
reducing  weight  to  accept  a 100  NM  range.  Another  might  not  accept 


less  than  150  NM.  These  two  points  are  then  connected  to  Corner  (2), 
and  these  lines  become  bounds  on  the  line  of  equal  preference.  The 
slopes  are  the  trade  factors  needed  by  the  RWM.  These  are  computed 
and  shown  beside  each  rectangle. 
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FIGURE  B - 3 

RWM  TRADE  FACTORS  (EXAMPLE) 
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(U)  Note  that  the  sign  of  the  trade  factors  is  chosen  by  the  sign 
convention  that  if  the  variable  (e.  g.  launch  weight)  is  such  that  low  values 
are  perf erred,  the  trade  factor  is  negative.  This  applies  to  the  trade 
factor  of  the  variable  with  respect  to  itself,  which  is  either  +1  or  -1. 

In  this  example  it  is  a +1,  as  used  in  Figure  B-1, 
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4.  RANK  AND  RANK  BOUNDS 

I 

(U)  Use  of  the  preceding  data  in  the  RWM  produced  the  computer 
output  shown  in  Figure  B-4,  giving  system  name,  rank,  and  rank  bounds 
I as  d)  ;ussed  in  Section  II-5  in  the  body  of  the  report.  Note;  The  system 

"nan.  was  coded  to  allow  traceback  to  the  candidate  identity  in  the  CGSM, 
r e.g.,  LIQ  ROC-24  (LIGHT)  means  liquid  rocket  concept  number  24,  using 

the  light  (1100  pound)  warhez.d. 

‘ (U)  To  illustrate  how  the  rank  bound  and  related  systems  data 

may  be  displayed,  the  systems  were  tabulated  in  Figure  B-5.  It  is  seen 
that  System  7,  for  example,  has  the  least  range  (89  n.  mi. ) and  ranks 

between  8 and  18.  The  highest  ranking  systems,  concepts  number  3 and  4,  jj 

have  identical  range  (141  n.  mi. ),  identical  weight  (12,000  lbs.),  and  jj 

identical  warhead  weight  (1100  lbs.).  In  general,  for  this  sample  problem,  | 

the  light  warhead  weight  concepts  rank  higher  than  the  heavier  warhead  | 

1 concepts.  Concepts  with  the  greatest  range  also  tend  to  rank  higher  than  fi 

concepts  with  lesser  range,  and  liquid  rockets  tend  to  rank  higher  than  |i 

solid  rockets.  ll 
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FIGURE  B-4 

RWM  RANK  AND  RANK  BOUND  OUTPUTS 
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EXAMPLE  - RANKED  HIGH  VALUE  CRUISE  MISSILE  SYSTEMS  (U) 


